﻿
Imports System.Data  


Public Class CAreaFuncion


Private _idArea As Integer
Private _area As String
Private _idFuncion As Integer
Private _funcion As String



Public Enum Funciones As Integer 
 Liquidez = 1
 Porvenir = 2
 Saldos = 3
End Enum



Public Sub new(ByRef registro As DataRow )

_idArea    = registro("ID_AREA") 
_area      = registro("AREA") 
_idFuncion = registro("ID_FUNCION") 
_funcion   = registro("FUNCION") 

End Sub



Public Property IdArea() As Integer 
    Get
        Return _idArea 
    End Get
    Set(ByVal value As Integer )
        _idArea  = value
    End Set
End Property




Public Property IdFuncion() As Integer 
    Get
        Return _idFuncion 
    End Get
    Set(ByVal value As Integer )
        _idFuncion   = value
    End Set
End Property



Public Property Area() As String
    Get
        Return _area  
    End Get
    Set(ByVal value As String)
        _area  = value
    End Set
End Property


Public Property Funcion() As String
    Get
        Return _funcion   
    End Get
    Set(ByVal value As String)
        _funcion   = value
    End Set
End Property








End Class
